home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON04 / ACT04A / common4.cst / 00034_operate arrows.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  1011 b   |  44 lines
  1. on mouseDown me
  2.   global gFollowPathObj
  3.   set spr=the spriteNum of me
  4.   set arrowName=the name of the member of sprite spr
  5.   --JCODE
  6.   set theMember = arrowName&",down"
  7.   set the member of sprite spr = member theMember of castLib "Internal"
  8.   --END JCODE
  9.   
  10.   updateStage
  11.   setPathFollowerDirection gFollowPathObj, member arrowName of castLib "pathFollower"
  12.   set destFrame=movePathFollower(gFollowPathObj)
  13.   if destFrame<>"" then
  14.     go to frame destFrame
  15.     exit
  16.   end if
  17.   await 0.1
  18.   
  19.   puppetSound 1, "tractor,prompt"
  20.   repeat while the mouseDown
  21.     if rollOver(spr) then
  22.       set the member of sprite spr=member (arrowName&",down")
  23.       updateStage
  24.       set destFrame=movePathFollower(gFollowPathObj)
  25.       if destFrame<>"" then
  26.         go to frame destFrame
  27.         exit
  28.       end if
  29.       await 0.1
  30.     else
  31.       set the member of sprite spr=member (arrowName)
  32.       updateStage
  33.     end if
  34.   end repeat
  35.   puppetSound 1, 0
  36.   
  37.   set the member of sprite spr=member (arrowName)
  38.   updateStage
  39. end
  40.  
  41.  
  42.  
  43.  
  44.